home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / bowling.arc / PRINT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-07-12  |  3.5 KB  |  93 lines
  1. 10  REM PRINT DISK FILE HEADERS PROGRAM        (PRINT)
  2. 12  REM Developed by William W. Klaproth,  Moraga Ca.  94556    September 1982
  3. 20  REM MASTER FILE DESCRIPTIONS FOR ALL BOWLING PROGRAMS
  4. 30  OPEN "B:TEAMS.HDR" AS #1 LEN = 64
  5. 40  FIELD #1, 2 AS TM$, 30 AS NAM$, 2 AS RCNT$, 2 AS GAM$, 4 AS PINS$, 2 AS AVG$, 2 AS HIG$, 2 AS HIS$, 4 AS PTSW$, 4 AS PTSL$, 2 AS B1ID$, 2 AS B2ID$, 2 AS B3ID$, 2 AS B4ID$, 2 AS B5ID$
  6. 50  FIELD #1, 2 AS HDRID$, 30 AS LEAGUE$, 2 AS WEEKS$, 2 AS TEAMS$, 4 AS FILLER$, 2 AS BWLPERTM$, 2 AS NXTID$, 2 AS HCPBASE$, 4 AS HCPPCNT$
  7. 60  OPEN "B:BOWLERS.HDR" AS #2 LEN = 64
  8. 70  FIELD #2, 2 AS BBO$, 30 AS BNAM$, 2 AS BRCNT$, 2 AS BGAM$, 4 AS BPINS$, 2 AS BAVG$, 2 AS BHIG$, 2 AS BHIS$, 2 AS BHCP$, 2 AS BHIGH$, 2 AS BHISH$, 2 AS BTM$,2 AS GAM2$, 2 AS SER5$, 2 AS SER6$,2 AS CURSER$,2 AS AVGLSTYR$
  9. 80  REM OPEN "B:TEAM.DET" AS #3 LEN = 16
  10. 90  REM FIELD #3,2 AS DTM$, 2 AS TMO$, 2 AS TDAY$, 2 AS TG1$, 2 AS TG2$, 2 AS TG3$, 2 AS TSER$, 2 AS DPTSW$
  11. 100  REM OPEN "B:BOWLER.DET" AS #4 LEN = 16
  12. 110  REM FIELD #4,2 AS DBO$, 2 AS BMO$, 2 AS BDAY$, 2 AS BG1$, 2 AS BG2$, 2 AS BG3$, 2 AS BSER$
  13. 120  CLS
  14. 130  PRINT "PRINT MASTER FILE HEADERS"
  15. 140  PRINT " "
  16. 150  DIM BNUM%(5)
  17. 160  GET #1,1
  18. 170  TM% = CVI(TEAMS$)
  19. 180  BO% = CVI(BWLPERTM$)
  20. 190  TEAM% = CVI(HDRID$)
  21. 200  WEEKS% = CVI(WEEKS$)
  22. 210  FILL = CVS(FILLER$)
  23. 220  NXT% = CVI(NXTID$)
  24. 230  BASE% = CVI(HCPBASE$)
  25. 240  PCNT = CVS(HCPPCNT$)
  26. 250  LPRINT "LEAGUE HEADER: ";NAM$
  27. 260  LPRINT "REC#  WKS  TMS       B/T  NXT BASE   %%"
  28. 270  LPRINT USING "#### ";TEAM%,WEEKS%,TM%,FILL,BO%,NXT%,BASE%,PCNT
  29. 280  FOR T% = 1 TO TM%
  30. 290  GET #1, (T% + 1)
  31. 300  TEAM% = CVI(TM$)
  32. 310  RCNT% = CVI(RCNT$)
  33. 320  GAM% = CVI(GAM$)
  34. 330  PINS = CVS(PINS$)
  35. 340  AVG% = CVI(AVG$)
  36. 350  HIG% = CVI(HIG$)
  37. 360  HIS% = CVI(HIS$)
  38. 370  PTSW = CVS(PTSW$)
  39. 380  PTSL = CVS(PTSL$)
  40. 390  BNUM%(1) = CVI(B1ID$)
  41. 400  BNUM%(2) = CVI(B2ID$)
  42. 410  BNUM%(3) = CVI(B3ID$)
  43. 420  BNUM%(4) = CVI(B4ID$)
  44. 430  BNUM%(5) = CVI(B5ID$)
  45. 440  LPRINT "***************************************************************************"
  46. 450  LPRINT "TEAM HEADER: ";NAM$
  47. 460  LPRINT " TM#  CNT  GAM PINS  AVG  HIG  HIS PTSW PTSL  B#1  B#2  B#3  B#4  B#5"
  48. 470  LPRINT USING "#### ";TEAM%,RCNT%,GAM%,PINS,AVG%,HIG%,HIS%,PTSW,PTSL,BNUM%(1),BNUM%(2),BNUM%(3),BNUM%(4),BNUM%(5)
  49. 480  LPRINT " "
  50. 490  LPRINT "BOWLER HEADERS"
  51. 500  LPRINT "  NO  CNT  GAM  PIN  AVG  HIG  HIS  HCP  HHG  HHS  TM#  200  500  600  SER"
  52. 510  FOR B% = 1 TO BO%
  53. 520  BREC% = BNUM%(B%)
  54. 530  GET #2,BREC%
  55. 540  BBO% = CVI(BBO$)
  56. 550  BRCNT% = CVI(BRCNT$)
  57. 560  BGAM% = CVI(BGAM$)
  58. 570  BPINS = CVS(BPINS$)
  59. 580  BAVG% = CVI(BAVG$)
  60. 590  BHIG% = CVI(BHIG$)
  61. 600  BHIS% = CVI(BHIS$)
  62. 610  BHCP% = CVI(BHCP$)
  63. 620  BHIGH% = CVI(BHIGH$)
  64. 630  BHISH% = CVI(BHISH$)
  65. 640  BTM% = CVI(BTM$)
  66. 650  LPRINT "BOWLER HEADER: ";BNAM$
  67. 660  LPRINT USING "#### ";BBO%,BRCNT%,BGAM%,BPINS,BAVG%,BHIG%,BHIS%,BHCP%,BHIGH%,BHISH%,BTM%,CVI(GAM2$),CVI(SER5$),CVI(SER6$),CVI(CURSER$)
  68. 670  NEXT B%
  69. 680  NEXT T%
  70. 690  LPRINT "***************************************************************************"
  71. 700  LPRINT "SUBSTITUTE RECORDS"
  72. 710  LPRINT "  NO  CNT  GAM  PIN  AVG  HIG  HIS  HCP  HHG  HHS  TM#  200  500  600  SER"
  73. 720  FOR SREC% = (BREC%+1) TO (NXT%-1)
  74. 730  GET #2,SREC%
  75. 740  BBO% = CVI(BBO$)
  76. 750  BRCNT% = CVI(BRCNT$)
  77. 760  BGAM% = CVI(BGAM$)
  78. 770  BPINS = CVS(BPINS$)
  79. 780  BAVG% = CVI(BAVG$)
  80. 790  BHIG% = CVI(BHIG$)
  81. 800  BHIS% = CVI(BHIS$)
  82. 810  BHCP% = CVI(BHCP$)
  83. 820  BHIGH% = CVI(BHIGH$)
  84. 830  BHISH% = CVI(BHISH$)
  85. 840  BTM% = CVI(BTM$)
  86. 850  LPRINT "NAME: ";BNAM$
  87. 860  LPRINT USING "#### ";BBO%,BRCNT%,BGAM%,BPINS,BAVG%,BHIG%,BHIS%,BHCP%,BHIGH%,BHISH%,BTM%,CVI(GAM2$),CVI(SER5$),CVI(SER6$),CVI(CURSER$)
  88. 870  NEXT SREC%
  89. 880  LPRINT "END OF FILE"
  90. 890  PRINT "Header Printing Completed - Returning to MENU"
  91. 900  CLOSE
  92. 910  RUN "A:MENU"
  93.